10 POKE53280,5:POKE53281,5
110 PRINT"[147]"
115 PRINT"     U N I D A T   P R O      V2.1"
120 PRINT:PRINT" UNIVERSELLES DATENVERWALTUNGSPROGRAMM"
130 PRINT"----------------------------------------"
140 PRINT"DAS PROGRAMM WIRD MIT"
150 PRINT"[LOAD][146]'UNIDATPRO',8  GELADEN UND MIT"
160 PRINT"[RUN][146] GESTARTET."
170 PRINT:PRINT"DIE DATEIMASKEN SIND FREI WAEHLBAR."
180 PRINT"MOECHTE MAN EINE EXISTENTE MASKE HABEN,"
190 PRINT"SO WERDEN DIE VORHANDENEN MASKEN AM"
200 PRINT"BILDSCHIRM GEZEIGT UND KOENNEN DANN "
210 PRINT"GELADEN WERDEN. SELBST ERSTELLTE MASKEN"
220 PRINT"KOENNEN GESPEICHERT WERDEN."
224 IFPR=1THEN230
225 GOSUB 1000
230 PRINT:PRINT"EINE MASKE KANN MAX. 10 DATENFELDER"
240 PRINT"HABEN. DIE DATEI DARF JE NACH MASKEN-"
250 PRINT"GROESSE 300 - 500 DATENSAETZE UMFASSEN."
260 PRINT:PRINT"NACH ERSTELLEN/LADEN DER MASKE GELANGT"
270 PRINT"MAN INS MENUE."
280 PRINT:PRINT"GENERELL GILT, DASS MAN AUS JEDEM "
290 PRINT"MENUEPUNKT MIT [F2][146] WIEDER INS HAUPT-"
300 PRINT"MENUE GELANGT."
310 PRINT:PRINT"BEI EINGABE VON DATENSAETZEN KANN MAN "
320 PRINT"SICH FREI IM DATENFELD BEWEGEN."
330 PRINT"NACH EINGABE EINES DATENSATZES WIRD "
340 PRINT"DIESER MIT [F1][146] IN DEN SPEICHER UEBER-"
350 PRINT"NOMMEN. DABEI SPRINGT DER CURSOR IN DIE"
351 PRINT"LINKE OBERE ECKE."
352 IFPR=1THEN360
355 GOSUB 1000
360 PRINT:PRINT"IN DEN PROGRAMMTEILEN 'SUCHEN, AENDERN,"
370 PRINT"LOESCHEN' MUSS EIN SUCHBEGRIFF LINKS-"
380 PRINT"BUENDIG EINGEGEBEN WERDEN. DIE EINGABE"
390 PRINT"IST DANN MIT [F1][146] ABZUSCHLIESSEN."
400 PRINT:PRINT"BEI DER GESAMTUEBERSICHT WIRD MIT "
410 PRINT"DEN TASTEN [CURSOR RECHTS/LINKS][146]"
420 PRINT"IN DEN DATENSAETZEN GEBLAETTERT.":IFPR=1THEN2000
470 GOSUB1000:GOSUB2000
480 PRINT:PRINT"FUER DEN SCHNELLEN EINSTIEG SIND AUF"
490 PRINT"DIESER DISKETTE DIE MASKEN 'VIDEO' UND"
500 PRINT"'ADRESSEN' MIT DEN DAZUGEHOERIGEN "
510 PRINT"DATEIEN 'VIDEODATEN' UND 'ADRESSDATEN'"
520 PRINT"ALS BEISPIELE GESICHERT. NACH ANWAHL"
530 PRINT"WIRD DIE ENTSPRECHENDE MASKE GELADEN"
540 PRINT"UND AUS DEM MENUE KANN MIT [7][146] DIE"
550 PRINT"DAZUGEHOERIGE DATEI GELADEN WERDEN."
560 PRINT"DANACH KANN MAN ALLE PROGRAMMTEILE AUS-"
570 PRINT"PROBIEREN."
580 PRINT"        UND NUN VIEL VERGNUEGEN   [146]"
590 PRINT"ANLEITUNG DRUCKEN [J/N] ?"
595 GETPR$:IFPR$<>"J"ANDPR$<>"N"THEN595
596 IFPR$="N"THENEND
700 PR=1:OPEN4,4:CMD4:PRINT:GOTO115
1000 PRINT"TASTE[146]"
1010 GET A$:IFA$=""THEN1010
1020 PRINT"[147]":RETURN
2000 PRINT:PRINT"ZU BEACHTEN:[146]":PRINT:PRINT" 1) DATEN WERDEN IMMER AB DATEIANFANG"
2010 PRINT"    GELADEN, EIN 'DAZULADEN' IST NICHT[146]":PRINT"    MOEGLICH!"
2020 PRINT:PRINT" 2) IM MENUE-PUNKT 'SERVICE' KOENNEN DIE":PRINT"    FARBEN FUER SCREEN";
2030 PRINT" UND SCHRIFT":PRINT"    EINGESTELLT WERDEN."
2040 PRINT:PRINT"    EBENSO WIRD VON HIER AUS DAS PRG.":PRINT"    MIT [F8][146] VERLASSEN."
2050 PRINT:PRINT"    WURDE DAS PRG.-ENDE VERSEHENTLICH":PRINT"    ANGEWAEHLT, KOMMT MAN";
2060 PRINT" OHNE DATEN-":PRINT"    VERLUST DURCH EINGABE VON [CONT][146]"
2070 PRINT"    UND ANSCHLIESSENDEM DRUECKEN VON":PRINT"    [F2][146] WIEDER ZUM MENUE."
2075 IFPR=1THEN2080
2076 GOSUB1000
2080 PRINT:PRINT" 3) BEIM SPEICHERN WIRD EIN EVENTUELL":PRINT"    UNTER GLEICHEM ";
2090 PRINT"NAMEN AUF ":PRINT"    DER DISK BEFINDLICHES FILE GE-"
2100 PRINT"    LOESCHT. - UM DIES ZU VERMEIDEN,":PRINT"    DARAUF ACHTEN, WELCHER";
2110 PRINT" DATEINAME":PRINT"    VERWENDET WIRD!":IFPR=1THENPRINT#4:CLOSE4:END
2120 GOSUB1000:RETURN